extern int slassq_(integer *n, real *x, integer *incx, real *scale, real *sumsq);
